﻿Class CMConfigTraspasos
    Dim ServicioTraspasos As New CTraspasosServicio()
    Dim lstParametros As New List(Of CParametros)

#Region "Carga página"
    Private Sub CMConfigTraspasos_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs) Handles Me.Loaded
        Try
            CargaParametros()

            Mouse.OverrideCursor = Cursors.Arrow
        Catch ex As Exception
            Dim intErrorCargaInicial As Integer = CUtileria.GrabarBitacora("ConfigTraspasos", "Carga página", ex.Message)
            CUtileria.CompletarRegBitacora(intErrorCargaInicial)

            Mouse.OverrideCursor = Cursors.Arrow

            MessageBox.Show("Error TI500. " & ex.Message, "Carga página configuración Traspasos", MessageBoxButton.OK, MessageBoxImage.Error)
        End Try
    End Sub
#End Region

#Region "Carga inicial"
    Private Sub CargaParametros()
        Dim intBitacoraDecalog As Integer

        intBitacoraDecalog = CUtileria.GrabarBitacora("ConfigTraspasos", "Carga de parámetros", "Carga de los parámetros registrados en la base de datos")

        lstParametros = ServicioTraspasos.ObtieneParametrosTraspasosLista()

        grdParametros.ItemsSource = lstParametros
        grdParametros.UpdateLayout()

        CUtileria.CompletarRegBitacora(intBitacoraDecalog)
    End Sub
#End Region

#Region "Guardar información"
    Private Sub btnGuardar_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles btnGuardar.Click
        Dim msgResultado As MessageBoxResult = MessageBox.Show("¿Desea guardar la información?", "Guarda parámetros", MessageBoxButton.YesNo, MessageBoxImage.Question)
        Dim blnResultado As Boolean = True

        If msgResultado = MessageBoxResult.Yes Then
            Mouse.OverrideCursor = Cursors.Wait

            Try
                Dim intBitacoraCargaDECALOG As Integer
                intBitacoraCargaDECALOG = CUtileria.GrabarBitacora("ConfigTraspasos", "Guarda parámetros", "Se guardan los valores de los parámetros")

                For Each pAux As CParametros In lstParametros
                    blnResultado = ServicioTraspasos.ActualizaParametroTraspaso(pAux.Clave, pAux.Valor, CServiciosMacrosSyBaseDB.IDUSUARIO)
                Next

                CUtileria.CompletarRegBitacora(intBitacoraCargaDECALOG)

                Mouse.OverrideCursor = Cursors.Arrow

                If (blnResultado) Then
                    MessageBox.Show("Información guardada correctamente", "Guarda parámetros", MessageBoxButton.OK, MessageBoxImage.Information)
                Else
                    MessageBox.Show("Ocurrió un error al guardar alguno de los parámetros", "Guarda parámetros", MessageBoxButton.OK, MessageBoxImage.Error)
                End If
            Catch ex As Exception
                Dim intError As Integer = CUtileria.GrabarBitacora("ConfigTraspasos", "Guarda parámetros", ex.Message)
                CUtileria.CompletarRegBitacora(intError)

                Mouse.OverrideCursor = Cursors.Arrow

                MessageBox.Show("Error TI500. " & ex.Message, "Guarda parámetros", MessageBoxButton.OK, MessageBoxImage.Error)
            End Try
        End If
    End Sub
#End Region

End Class
